Write Perl Module

Category:Perl DNA_Rev_Comp.pm

package DNA_Rev_Comp;
use strict;
use vars qw(@ISA @EXPORT $VERSION); 
use Exporter; 
$VERSION = 1.00;
@ISA = qw(Exporter); 
@EXPORT = qw(DNA_Rev_Comp);
 
sub DNA_Rev_Comp {
    my $dna = $_[0];
    my $revcomp = reverse($dna);
    $revcomp =~ tr/ACGTacgt/TGCAtgca/;
    return $revcomp;
}
 
1;

DNA_Rev_Comp.pl

#!/usr/bin/perl
#use lib "./";
use DNA_Rev_Comp;
 
$a = "CAGCTATCTATCAC";
$b = DNA_Rev_Comp($a);
warn $b;